(load "dl-cn.lisp")

(defun cn-list(str)
  (let ((s1  (get-wd str #\=))(s2  (left-wd str #\=))(st nil))
    (if (> (length s1) 0) (setf s (read-from-string s1)))
    (if (null s2)
	(setf st T)
	(if (<= (length s2) 0)
	    (setf st "空")
	    (progn (setf st (read-from-string s2)))))
    (format t "[~a][~a]~%" s st)
    (if (null 开始)
	(progn (setf  开始 (dl-insert s nil))
	       (setf 当前 开始 结尾 开始))
	(if (gethash s 对照表)
	    (setf 当前 (dl-search s 开始))
	    (progn (setf (gethash s 对照表) st)
	       (setf tmp-dl 当前 当前 (dl-insert s nil))
	       (dl-merge tmp-dl 当前)
	       (setf 结尾 (dl-tail 当前)))))))	